<html><head><title>Http.pb</title></head>
<body bgcolor="#FFFFDF" link="#009999" vlink="#006666" alink="#006666">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#006666">;
</font><font color="#006666">; ------------------------------------------------------------
</font><font color="#006666">;
</font><font color="#006666">;   PureBasic - Http example file
</font><font color="#006666">;
</font><font color="#006666">;    (c) Fantaisie Software
</font><font color="#006666">;
</font><font color="#006666">; ------------------------------------------------------------
</font><font color="#006666">;
</font>
<font color="#006666">InitNetwork</font>()


URL$ = "http://user:pass@www.purebasic.com:1024/subdirectory/index.php?year=2008&month=12&day=3"
<b><font color="#006666">Debug</font></b> <font color="#006666">GetURLPart</font>(URL$, "year")
<b><font color="#006666">Debug</font></b> <font color="#006666">GetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Site</font>)
<b><font color="#006666">Debug</font></b> <font color="#006666">GetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Port</font>)
<b><font color="#006666">Debug</font></b> <font color="#006666">GetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Parameters</font>)
<b><font color="#006666">Debug</font></b> <font color="#006666">GetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Path</font>)
<b><font color="#006666">Debug</font></b> <font color="#006666">GetURLPart</font>(URL$, <font color="#924B72">#PB_URL_User</font>)
<b><font color="#006666">Debug</font></b> <font color="#006666">GetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Password</font>)

<b><font color="#006666">Debug</font></b> "-------"
<b><font color="#006666">Debug</font></b> <font color="#006666">SetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Site</font>, "forums.purebasic.fr")
<b><font color="#006666">Debug</font></b> <font color="#006666">SetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Port</font>, "80")
<b><font color="#006666">Debug</font></b> <font color="#006666">SetURLPart</font>(URL$, <font color="#924B72">#PB_URL_User</font>, "bericko")
<b><font color="#006666">Debug</font></b> <font color="#006666">SetURLPart</font>(URL$, <font color="#924B72">#PB_URL_Password</font>, "password")



</font></pre>
</body></html>
